home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s1.arc / ITOS.MOD < prev   
Text File  |  1987-05-02  |  1KB  |  32 lines
  1. (*----------------------------------------------------------------------*)
  2. (*               IToS --- Convert integer number to string              *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. FUNCTION IToS( Integr : INTEGER ) : ShortStr;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Function:   IToS                                                 *)
  10. (*                                                                      *)
  11. (*     Purpose:    Convert integer to string                            *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        IntString := IToS( Integr : INTEGER ) : ShortStr;             *)
  16. (*                                                                      *)
  17. (*           Integr     --- decimal integer to convert to string        *)
  18. (*           IntString  --- resultant string                            *)
  19. (*                                                                      *)
  20. (*----------------------------------------------------------------------*)
  21.  
  22. VAR
  23.    S: ShortStr;
  24.  
  25. BEGIN (* IToS *)
  26.  
  27.    STR( Integr , S );
  28.  
  29.    IToS := S;
  30.  
  31. END   (* IToS *);
  32.